home *** CD-ROM | disk | FTP | other *** search
/ START Magazine / START VOL 4 NO 1.st / POGOSRC.ARC / STINIT.C < prev    next >
Encoding:
C/C++ Source or Header  |  1985-11-20  |  3.2 KB  |  167 lines
  1.  
  2.  
  3. #include <osbind.h>
  4. #define WORD int
  5. #define COLORS 166
  6.  
  7.  
  8. extern char *ainit();
  9.  
  10. WORD contrl[12], intin[128], ptsin[128], intout[128], ptsout[128];
  11. char *aline;
  12. static WORD color_env[16];
  13. extern WORD *sys_cmap;
  14. WORD in_graphics;
  15. extern WORD *screens[];
  16. extern WORD *cmaps[];
  17.  
  18. WORD *physcreen;  /* physical screen */
  19. WORD *cscreen;    /* drawing screen */
  20. WORD gl_apid = -1;
  21. WORD handle;
  22. WORD gr_handle;
  23. WORD gr_hwchar, gr_hhchar, gr_hwbox, gr_hhbox;
  24. WORD gem_mrez;    /* gem in medium rez? */
  25.  
  26. static WORD mouse_bx, mouse_by, gem_colr;
  27. static WORD initted_color;
  28. static WORD irez;
  29. WORD screen_bounds[] = { 0, 0, 319, 199};
  30.  
  31. /* set_for_gem and set_for_jim - functions that let me run at low rez
  32.    while doing file requestor and file io at whatever rez GEM thinks
  33.    it is - necessary for file requestor to appear ok, and for system
  34.    io error dialogs to be centered etc.
  35.    Thanks to Dave Staugas (of Neochrome) for the necessary magic aline
  36.    peeks and pokes! */
  37. to_text()
  38. {
  39. WORD i;
  40.  
  41. if (in_graphics)
  42.     {
  43.     de_swap();
  44.     in_graphics = 0;
  45.     Setpallete(color_env);    /* restore start-up colors */
  46.     vs_clip(handle, 0, screen_bounds);
  47.     gem_rez();        /* screen rez */
  48.     }
  49. }
  50.  
  51.  
  52. to_graphics()
  53. {
  54. WORD dummy;
  55. WORD i;
  56.  
  57. if (!in_graphics)
  58.     {
  59.     in_graphics = 1;
  60.     Setpallete(sys_cmap);    /* and now set graphics colors */
  61.     jim_rez();
  62.     vs_clip(handle, 1, screen_bounds);
  63.     }
  64. }
  65.  
  66. jim_rez()
  67. {
  68. Setscreen( -1L, -1L, 0);
  69. *((WORD *)(aline-692)) = 319;
  70. *((WORD *)(aline-690)) = 199;
  71. *((WORD *)(aline-666)) = 16;
  72. }
  73.  
  74. gem_rez()
  75. {
  76. if (irez)
  77.     {
  78.     Setscreen( physcreen, physcreen, 1);
  79.     *((WORD *)(aline-692)) = 639;
  80.     *((WORD *)(aline-690)) = 199;
  81.     *((WORD *)(aline-666)) = 4;
  82.     }
  83. }
  84.  
  85.  
  86. extern int randseed;
  87.  
  88. init_sys()
  89. {
  90. WORD work_in[11];
  91. WORD work_out[57];
  92. WORD i;
  93.  
  94. if ( (gl_apid = appl_init()) == -1)
  95.     {
  96.     exit(-1);
  97.     }
  98. aline = ainit();
  99.  
  100.  
  101. /* save initial rez ... we'll see if GEM agrees with this later */
  102. if ( (irez = Getrez()) != 0)
  103.     {
  104.     if (irez != 1)
  105.         {
  106.         puts("POGO only works with color ST's, sorry");
  107.         for (i=0; i<60; i++)
  108.             {
  109.             Vsync();
  110.             }
  111.         exit(-3);
  112.         }
  113.     }
  114.  
  115. get_cmap(color_env);
  116. initted_color = 1;
  117.  
  118. /* save mouse wrap-around */
  119. mouse_bx = *((WORD *)(aline-692));
  120. mouse_by = *((WORD *)(aline-690));
  121. /* save # of colors gem thinks exist */
  122. gem_colr = *((WORD *)(aline-666));
  123.  
  124. gr_handle = graf_handle(&gr_hwchar, &gr_hhchar, &gr_hwbox, &gr_hhbox);
  125. handle = gr_handle;
  126. for (i = 0; i<10; i++)
  127.     work_in[i] = 1;
  128. work_in[10] = 2;
  129. v_opnvwk(work_in, &handle, work_out);
  130. if (handle == 0)
  131.     return(-5);
  132. if (work_out[0] == 639)
  133.     {
  134.     gem_mrez = 1;    /* see what GEM thinks rez is in so file-requestor can 
  135.                         work */
  136.     /* poke in initial mouse location (in case off-screen for lo-rez */
  137.     *((WORD *)(aline-602)) = 160;
  138.     *((WORD *)(aline-600)) = 100;
  139.     }
  140. screens[1] = physcreen = cscreen = (WORD *)Physbase();
  141. cmaps[1] = sys_cmap;
  142. randseed = get_clock();
  143. return(1);
  144. }
  145.  
  146. cleanup()
  147. {
  148. WORD dummy;
  149. WORD i;
  150.  
  151. use_mouse();
  152. to_text();
  153. /*magic poke to set mouse wrap-around*/
  154. *((WORD *)(aline-692)) = mouse_bx;
  155. *((WORD *)(aline-690)) = mouse_by;
  156. *((WORD *)(aline-666)) = gem_colr;
  157.  
  158. /*restore palette...*/
  159. if (initted_color)
  160.     Setpallete(color_env);
  161. if (handle != 0)
  162.     v_clsvwk(handle);
  163. if (gl_apid != -1)
  164.     appl_exit(0);
  165. }
  166.  
  167.